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PS/8 FORTRAN ALPHABETICAL SORT 

DECUS Program Library Write-up DECUS NO. 8-518 


This is an alphabetical sort of any number of fields of any width. The array to be sorted must be 
an integer array of ASCII characters stored in A2 format. The program is a subroutine and is 
called from the main program. 

Call SORT with the following arguments: 

NAME - Array with fields to be sorted. Routine returns the sorted array in NAME. 



NFLD - Width of field divided by 2. If field contains 20 characters/ NFLD=I0. 

NUMBER - The number of fields to be sorted. 

For efficiency the dimension of NAME should be adjusted to that of your longest array to be 
sorted. NAMEA and NAMEB should be adjusted to the maximum field width divided by two. 
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****** ALPHABETICAL SORT ***** 

CALL SORT FROM MAIN PROGRAM 

NAME — ARRAY WITH FIELDS TO BE SORTED/RETURNS SORTED 
NFLD — WIDTH OF FIELD DIVIDED BY 2 
NUMBER — NUMBER OF FIELDS 


FOR EFFICIENCY ADJUST DIMENSION OF NAME TO THAT OF 
YOUR MAXIMUM ARRAY TO BE SORTED. 

SUBROUTINE SORT (NAME,NFLD, NUMBER) 

DIMENSION NAME(1je)0jef), NAMEA(36), NAMEB(36) 

IX=NUMBER-1 

LSW=1 

DO 1000 1=1, IX 
DO 900 J=1, NFLD 
M=NFLD*I+J-NFLD 
N=NFLD* I+J 
NAMEA(J)=NAME(M) 

NAMEB(J)=NAME( N) 

‘COMPARE FIELDS* 

DO 20 J=1 ,NFLD 

IF (NAMEA(J)-NAMEB(J) ) 1000,20,30 

CONTINUE 

GOTO 1000 

LSW=1 

‘INTERCHANGE FIELDS (THEY ARE NOT ALPHABETICAL)* 

DO 950 J=1,NFLD 
M=NFLD*I+J-NFLD 
N=NFLD* I+J 
NAME(M)=NAMEB(J) 

NAME(N)=NAMEA(J) 

CONTINUE 

*IF AN INTERCHANGE WAS MADE DURING THIS PASS 
MAKE ANOTHER PASS* 

IF (LSW) 999,1010,800 

RETURN 

CALL EXIT 

END 


# 


2 



